<%=xcompany.name%>

<%=allt(allt(xcompany.address1)+[ ]+allt(xcompany.address2))%>

<%if not empty(xcompany.ntn)%>

<%=iif(left(searchresults.depositid,3)=[019],[CASH SALE],[DEBIT SALE])%>
<%=xcompany.ntn%>

<%else%>

<%=iif(left(searchresults.depositid,3)=[019],[CASH SALE],[DEBIT SALE])%>

<%endif%> <%if not empty(xcompany.fbrposid) or not empty(fbrnumberreceived)%>

<%if not empty(xcompany.fbrposid) %> <%endif%> <%if not empty(fbrnumberreceived)%> <%endif%>

<%endif%> <%if type([searchresults.fbrinv])=[C] and not empty(searchresults.fbrinv)%>

<%=[POSID# ]+ALLT(xcompany.fbrposid)%> <%=[FBR# ]+ALLT(fbrinv)%>

<%endif%> <%if not empty(memo)%>

<%=allt(memo)%>

<%endif%>

<%=[INV# ]+ALLT(TRANSID)+[ ]+ttoc(dtime)%>

<%if haskglibs%> <%else%> <%if haszctn%> <%endif%> <%if haszunit%> <%endif%> <%endif haskglibs%> <%if hastax=.t.%> <%endif%> <%if hasdiscount%> <%endif%> <%SCAN%> <% ITEMTX=round(iif(empty(taxprate),taxrate*qty,(qty*rate)-(qty*rate)/(1+taxprate/100)),2) if empty(taxprate) thetaxprate=round((taxrate/(rate-taxrate))*100,2) else thetaxprate=taxprate endif SALEINCLUDINGTAX=qty*rate saleexcludingtax=saleincludingtax-itemtx totaltax=totaltax+itemtx thechars=[] textra=allt(nvl(extra,'')) for i=1 to len(textra) thechars=thechars+[ | ]+subst(textra,i,1)+[ : ]+transform(asc(subst(textra,i,1))) endfor testunits=nvl(zunit,0) kgqty=QTY*iif(empty(KGS),1,kgs) libsqty=QTY*iif(empty(libs),2.20462,libs) kgqty=icase(kgqty=round(kgqty,0),round(kgqty,0),kgqty=round(kgqty,2),round(kgqty,2),kgqty=round(kgqty,3),round(kgqty,3),round(kgqty,4)) libsqty=icase(libsqty=round(libsqty,0),round(libsqty,0),libsqty=round(libsqty,2),round(libsqty,2),libsqty=round(libsqty,3),round(libsqty,3),round(libsqty,4)) rateperlib=saleexcludingtax/libsqty if haskglibs if empty(kgs) thectnqty=iif(empty(testunits),qty,testunits) else thectnqty=qty endif rateperkg=saleexcludingtax/kgqty else thectnqty=qty rateperkg=saleexcludingtax/qty endif rateperkg=icase(rateperkg=round(rateperkg,0),round(rateperkg,0),round(rateperkg,2)) rateperlib=icase(rateperlib=round(rateperlib,0),round(rateperlib,0),round(rateperlib,2)) %> <%if haskglibs%> <%else%> <%if haszctn%> <%endif%> <%if haszunit%> <%endif%> <%endif haskglibs%> <%if hastax=.t.%> <%endif%> <% roundeddisc=icase(discount=round(discount,0),round(discount,0),round(discount,2)) %> <%if hasdiscount%> <%endif%> <%ENDSCAN%>

#

DETAILS

KGs

LIBs

CTNs

RATE/LIB

RATE/KG

UNIT

PCS

QTY

RATE

TAX%

VAT

TOTAL

DISC

NET AMOUNT

<%=RECNO()%>

<%=icase(isurdu=2,allt(DESC)+iif(empty(textra),[],[ ]+allt(textra)),isurdu=1,iif(empty(textra),allt(desc),allt(textra)),allt(desc))%>

<%=iif(empty(KGQTY),' ',KGQTY)%>

<%=iif(empty(libsQTY),' ',libsQTY)%>

<%=iif(empty(thectnqty),' ',thectnqty)%>

<%=iif(empty(rateperlib),' ',rateperlib)%>

<%=iif(empty(rateperkg),' ',rateperkg)%>

<%=zctn%>

<%=iif(empty(thectnqty),' ',thectnqty)%>

<%=thectnqty%>

<%=rateperkg%>

<%=iif(empty(thetaxprate),' ',transform(thetaxprate)+[%])%>

<%=iif(empty(itemtx),' ',transform(itemtx,'999999999.99'))%>

<%=ROUND(qty*rate,0)%>

<%=iif(empty(roundeddisc),' ',transform(roundeddisc))%>

<%=ROUND(qty*rate-roundeddisc,0)%>

<%if hastax=.t.%> <%if totaltax<>0 %> <%endif%> <%endif%> <%if fbrservice<>0 %> <%endif%> <%if SERVICECHARGES<>0 %> <%endif%> <%if round(PRODUCTDISCOUNT+MEMBERDISCOUNT,2)<>0 %> <%endif%> TOTAL TAX <%=TOTALTAX%> POS SERVICE CHARGES <%=fbrservice%> SERVICE CHARGES <%=SERVICECHARGES%> TOTAL AMOUNT <%=TOTALAMOUNT+fbrservice+SERVICECHARGES%> DISCOUNT <%=PRODUCTDISCOUNT+MEMBERDISCOUNT%> NET AMOUNT <%=TOTALAMOUNT+fbrservice+SERVICECHARGES-PRODUCTDISCOUNT-MEMBERDISCOUNT%>